home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Src / dummy.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-07-22  |  1.9 KB  |  68 lines
  1. /******************************************************************************
  2.  *
  3.  * d u m m y . c        -- this file contains functions referenced
  4.  *                   (but not used) by the Tcl library.
  5.  *                   It is useful for the snow interpreter only.
  6.  *                   Dummy functions are defined here to make the 
  7.  *                   loader happy
  8.  *
  9.  * Copyright ⌐ 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
  10.  * 
  11.  *
  12.  * Permission to use, copy, and/or distribute this software and its
  13.  * documentation for any purpose and without fee is hereby granted, provided
  14.  * that both the above copyright notice and this permission notice appear in
  15.  * all copies and derived works.  Fees for distribution or use of this
  16.  * software or derived works may only be charged with express written
  17.  * permission of the copyright holder.  
  18.  * This software is provided ``as is'' without express or implied warranty.
  19.  *
  20.  * This software is a derivative work of other copyrighted softwares; the
  21.  * copyright notices of these softwares are placed in the file COPYRIGHTS
  22.  *
  23.  *
  24.  *           Author: Erick Gallesio [eg@unice.fr]
  25.  *    Creation date:  1-Feb-1995 22:43
  26.  * Last file update: 22-Jul-1996 21:12
  27.  *
  28.  ******************************************************************************/
  29.  
  30. #include "stk.h"
  31.  
  32.  
  33. #ifndef USE_TK
  34.  
  35. static Error(char *msg)
  36. {
  37.   char buffer[100];
  38.  
  39.   sprintf(buffer, "Error: call of '%s' in Snow !!!. This should not occur\n", msg);
  40. }
  41.  
  42. char *Tcl_SetVar2(interp, name1, name2, val, flags)
  43.      Tcl_Interp *interp;
  44.      char *name1, *name2, *val;
  45.      int flags;
  46. {
  47.   Error("Tcl_SetVar2");
  48. }
  49.  
  50. Tcl_File Tcl_GetFile(ClientData fileData, int type)
  51. {
  52.   Error("Tcl_GetFile");
  53.   return TCL_ERROR;
  54. }
  55.  
  56. void Tcl_DeleteFileHandler(Tcl_File file)
  57. {
  58.   Error("Tcl_DeleteFileHandler");
  59. }
  60.  
  61. void Tcl_CreateFileHandler(Tcl_File file, int mask, Tcl_FileProc *proc,
  62.                 ClientData clientData)
  63. {
  64.   Error("Tcl_CreateFileHandler");
  65. }
  66. #endif
  67.  
  68.